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coereient (s) 1978, 1980, 1982, 1984 B 


DIGITAL E te CORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHTS” RES 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ome WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF on NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
one pokat the NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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"FACILITY: General Utility Library 
ABSTRACT: 


This module contains LIBSEMUL, which makes the VAX EMUL instruction 
available as a callable procedure. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 8-July-1981 
MODIFIED BY: 

1-001 - Original. SBL 8-July-1981 
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IBSEMUL - Execute E 
42801 DECLARATION 
4 
i 
28 
6 ° 
8 
0 : 
a : 
000 59 
9000 60 
0000 61 
0000 66 
44 6 
000 64 
0000 65 
0000 66 
0000 67 
0000 68 
0000 69 
0000 70 
00000000 71 
0000 fe 
0000 7 


as instruction 


~SBTTL DECLARATIONS 
LIBRARY MACRO CALLS: 
SSSDEF 


t EXTERNAL DECLARATIONS: 


-DSABL GBL 
NONE 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

PSECT DECLARATIONS: 


~PSECT op leecane BIS. 


EHR Sg 


AX/VMS 
LIBRTL.S 


o V04-00 
SLIBEMUL. MAR; 1 


3; Define SS$ symbols 


; Force all external symbols to be declared 


USR, CON, yin LCL, SHR, - 


RD, NOWRT, LO 


8 7 
e EMUL instruction 16-SEP-1984 :06: AX/VMS Macro V04-00 Page 
= Execute EMUL fnstruction mii et 90:96:38 LIBRTL.SRCILIBEMUL.MAR; 1 . 3) 


ee ~SBTTL LIBSEMUL = Execute EMUL instruction 
FUNCTIONAL DESCRIPTION: 


This procedure makes the VAX EMUL instruction available as 
a callable procedure. 


oti Me L1BSe 


“~~~ 
wn 
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The multiplicand argument is multiplied by the multiplier 
argument giving a double-length result. The addend argument 
is sign-extended to double-length and added to the result, and 
then the product argument is replaced by the final result. 


For more information, see the VAX-11 Architecture Handbook. 
CALLING SEQUENCE: 


9 status.wlc.v = LIBSEMUL (multiplier.rl.r, multiplicand.rl.r, 

2 addend.rl.r, product.wq.r) 

9 FORMAL PARAMETERS: 
00000004 3 multiplier = 4 3; The address of the longword integer multiplier. 
00000008 multiplicand = 8 ; The address of the longword integer multiplicand. 


0000000C 
00000010 


addend = 12 ; The address of the longword integer addend. 
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product = 16 ; The address of a quadword integer for the 
; product result. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL, normal successful completion 
SIDE EFFECTS: 
NONE 


SESS SSS SSSSSsss 
SOOoOoooooooooooo 
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4000 
10e8c OC BC 04 8C 08 BC 7A 


ENTRY LIBSEMUL, “M<IV> 3; Entry point 


EMUL @multiplicand(AP), a@multiplier(AP), - 
@addend(AP), a@product (AP) 


50 01 0 nove #SS$_NORMAL, RO ; The EMUL can not fail 
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~END : End of module LIBSEMUL 
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LIBSEMUL RG 02 
MULTIPLICAND = 
MULTIPLIER - 
UCT 2 9 
S$S$_NORMAL = 0 
Poses ern same econ + 
! Psect synopsis ! 
e$aewnanascetacosraowrces } 
PSECT name Allocation PSECT No. Attributes 
. ABS . 0000 8 ( on 0 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NO 
SABSS 38 ( ot 1 ¢ -) NOPIC USR CON ABS~ LCL NOSHR 
_LIBSCODE 0 | 15.) Se Bee PIC USR CON REL LCL SH 
$a ew ren etree n eee sce oceree eocee+ 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization $3 0:00: 0:00:01.48 
Command processing 1 § 0:00: 0:00:02.20 
Pass 1 17 0 0:00:10.72 
Symbol table sort ; 3 : 


Psect synopsis output 
Cross-reference output 
Assembler run totals 


ooo 
Oooo 


ass 4 
Symbol table output 
35 


0: if 5 
The york ing at: Limit was 1200 pages. 
19637 bytes (39 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 412 non-local and 0 local symbols. 
131 source Lines were read in Pass 1, producing 12 object records in Pass 2. 
8 pages of virtual memory were used to define / macros. 


Gooeecceceesoesoeccococccccs$ 


Macro library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 
469 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:LIBEMUL/OBJ=OBJ$:LIBEMUL MSRC$:LIBEMUL/UPDATE=(ENH$:L IBEMUL ) 


AX/VMS Ma 
LIBRTL.SR 


EXE 
EXE 
EXE 


o v04-00 
IBEMUL .MAR; 1 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 
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